home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d2.adf / RXProgs.lzh / make-hame.adpro < prev    next >
Text File  |  1991-10-17  |  2KB  |  110 lines
  1. /* MAKE-HAME */
  2.  
  3. /*
  4. ** This Arexx program is supplied for your convenience. It can be used to
  5. ** create rendered data suitable for turning into HAM-E mode displayable
  6. ** (and savable) data. This program requires ADPro 2 or later.
  7. **
  8. ** Copyright 1991 By  ASDG Incorporated
  9. */
  10.  
  11. OPTIONS RESULTS
  12. ADDRESS "ADPro"
  13. NL = '0A'X
  14.  
  15. VERSION
  16. IF (WORD(ADPRO_RESULT , 1) < 2) THEN DO
  17.     OKAY1 "This program requires ADPro 2 or later."
  18.     EXIT
  19. END
  20.  
  21. /* Note how we started. */
  22.  
  23. PWIDTH
  24. OLD_PALETTE_MODE = ADPRO_RESULT
  25.  
  26.  
  27. /* Let user decide which mode we should work in */
  28.  
  29. STRING = "Current palette mode is:" OLD_PALETTE_MODE || NL || NL
  30. STRING = STRING || "Hit OK to use ENHANCED mode." || NL
  31. STRING = STRING || "Hit CANCEL to use NORMAL mode."
  32.  
  33. OKAY2 STRING
  34.  
  35. IF RC ~= 0 THEN DO
  36.     PWIDTH "ENHANCED"
  37.     IF RC ~= 0 THEN DO
  38.         OKAY2 "Cannot switch into Enhanced Mode." || NL || "Continue?"
  39.         IF RC = 0 THEN EXIT
  40.     END
  41. END
  42. ELSE DO
  43.     PWIDTH "NORMAL"
  44. END
  45.  
  46. /* Let user decide between HAM and HAM8 */
  47.  
  48. RENDERING_MODE = "HAM8"
  49. COLORS_USED    = 60
  50.  
  51. STRING =           "Hit OK to render in 8 bit-plane" || NL || "HAM mode (262,144) colors." || NL || NL
  52. STRING = STRING || "Hit CANCEL to render  in 6 bit-" || NL || "plane HAM mode (4096 colors)." || NL || NL
  53.  
  54. OKAY2 STRING
  55.  
  56. IF RC = 0 THEN DO
  57.     RENDERING_MODE = "HAM"
  58.     COLORS_USED = 16
  59. END
  60.  
  61. /* Set up the user's wishes. */
  62.  
  63. POFFSET 0
  64. IF RC ~= 0 THEN DO
  65.     OKAY1 "POFFSET failed:" || NL || RC ADPRO_RESULT
  66.     EXIT
  67. END
  68.  
  69. PTOTAL RENDERING_MODE
  70. IF RC ~= 0 THEN DO
  71.     OKAY1 "PTOTAL failed:" || NL || RC ADPRO_RESULT 
  72.     EXIT
  73. END
  74.  
  75. PUSED COLORS_USED
  76. IF RC ~= 0 THEN DO
  77.     OKAY1 "PUSED failed:" || NL || RC ADPRO_RESULT
  78.     EXIT
  79. END
  80.  
  81. RENDER_TYPE "CUST"
  82. IF RC ~= 0 THEN DO
  83.     OKAY1 "RENDER_TYPE failed:" || NL || RC ADPRO_RESULT
  84.     EXIT
  85. END
  86.  
  87. EXECUTE
  88. IF RC ~= 0 THEN DO
  89.     OKAY1 "EXECUTE failed:" || NL || RC ADPRO_RESULT
  90.     EXIT
  91. END
  92.  
  93. SFORMAT "HAME"
  94. IF RC ~= 0 THEN DO
  95.     OKAY1 "Could not select the HAME saver."
  96.     EXIT
  97. END
  98.  
  99. /* Display image for 4 seconds, you can change 
  100. ** the delay to what you want.
  101. */
  102.  
  103. SAVE "DONTCARE" "IMAGE" "DISPLAY" 200
  104.  
  105. IF RC ~= 0 THEN DO
  106.     OKAY1 "HAME save failed." || NL || RC ADPRO_RESULT
  107.     EXIT
  108. END
  109.  
  110.